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ABSTRACT 


SUFFER, System Utility Facility For Easy Recovery, 
is a systems program written for use on IBM S/360 
computers. It allows the composition and execution of 
utility programs at aiiy operator's console. Associa- 
ted with SUFFER are procedure and control statement 
libraries. SUFFER 's value, use, logic flow and in- 
stallation are discussed. Examples and source list- 
ings are included. 
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SUFFER 


A PROGRAM FOR CONSOLE EXECUTION OF UTILITY PROGRAMS 


INTRODUCTION 

This paper describes and offers motivation for the use of a program written for 
IBM S/360 computers. The program is called SUFFER - System Utility Facility 
For Easy Recovery. It is an on-line tool to be used by systems programs and 
operators from an operator’s console. Using SUFFER, the system programmer 
can construct and execute utility programs designed to aid in both the investiga- 
tion of system problems and normal system software maintenance'. The use of 
two datasets, SYS2. SUFFER. PROC LIB and SYS2. SUFFER. CONTROL, contain- 
ing JCL and utility control statements respectively, allows the construction of 
these programs from previously defined building blocks. In addition, a job may 
be created in toto at the operator’s console and executed using SUFFER. 

The potential values of SUFFER, how to use it, its logic flow and installation are 
discussed in this paper. Program listings and examples are offered in the 
Appendices . 


THE VALUE OF SUFFER 

System Programming covers a wide range of functions associated with operating 
systems and extends from the conception and design of an operating system 
through to the responsibility of maintaining and debugging an operating system 
which is already in existence. In this latter aspect of system programming, the 
most important concern is to keep the operating system performing with a mini- 
mal amount of "down time. " Fast and accurate isolation of problems causing 
down time and a solution to the problem, such as a temporary programming fix, 
constitute a major function of the systems programmer and, hence, it is neces- 
sary in attempting to solve the problems of a large operating system to have as 
much information as possible available to the systems programmer for analysis 
of the system at that point in time when the problem occurs . Keeping down time 
to a minimum also involves a program of system maintenance allowing the oper- 
ating system to continue its operation essentially error free and providing a re- 
liable backup of the software and data stored in the computing system on second- 
ary storage. Obviously, problems are being isolated and solved and information 
is being stored about present operating systems or there would not be an opera- 
ting system working. However, any reduction in the amount of time consumed 
in this area further reduces the amount of time the system is inoperable and, 
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therefore, increases the time the computing system can be used for production 
work. The intent of this paper is to discuss how "down time" can be reduced by 
enhancing the system programmer’s ability to communicate with the operating 
system (thus providing himself with more information about the system) through 
SUFFER. 

Multiple Console Support, providing the features of routing codes, descriptor- 
codes, multiple and dedicated consoles, hard copy and the user exit, could in the 
extreme case provide the user's system programmer a console unto himself with 
its own routing and descriptor codes (which could be changed dynamically) , how- 
ever, this is an unnecessary extravagance. Yet, systems work will be proposed 
to be done with the normal configuration for any installation. 

IBM offers the user four different ways of organizing data on secondary storage 
in the computing system and also uses two of these organizations (partitioned 
data set and sequential data set) to store the operating system programs and 
tables. IBM places the responsibility for maintaining data sets of any organiza- 
tion on the user. However, IBM does provide a set of standard utilily programs 
for creating and maintaining operating system data. There are essentially two 
categories for these utility programs. One is the set of utilities used to main- 
tain system control data at an organizational or system level. The other is the 
set of utilities used to reorganize, change, or compare data at the data set level 
and at the record level. 

The utility programs are probably the most frequently used programs to gather 
information about the system when problems develop, to make modifications to 
the system, to recover lost data, to recreate lost data sets and to correct prob- 
lems. Consider the example of an installation that reserves a disk pack to ac- 
commodate a partitioned data set whose members are the load modules of cus- 
tomer programs. If on some occasion an unusually large number of programs 
start abending with a system 213 completion code, the first thing to do is to run 
the utility program lEHLIST to list the VT0C on the disk pack on which the par- 
titioned data set resides. Then for instance, if the data set were scratched (a 
strong possibility since the operator reply for a normal update to this data set and 
for scratching it altogether are the same) , one would have to use the lEHDASDR 
or lEHMOVE utility data set to recover the customer partitioned data set. 

The job control language for executing the utility programs is illustrated by the 
following: 

//JOBNAME (JOB statement) 

//STEPNAME EXEC PGM=PROGNAME 
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//SYSPRINT (DD statement for messf^e output data set.) 

DD statements for device allocation. 

//SYSIN (DD statement for data set containing utility control 

statements. ) 

/* 

Two of these JCL statements should be discussed. The first are the DD state- 
ments for device allocation. For all of the utilities the number of these DD 
statements remains constant when performing a singular application of the given 
utility program. It should also be noted that through the proper use of symbolic 
parameters, these DD statements can be made flexible enough to retain just one 
copy of the JCL for a singular application of a utility on secondary storage and 
to use that copy to execute the utility for any device by simply overriding the 
chosen symbolic parameters. The sysin card also requires consideration since 
it defines the data set containing the control statements to be used by the utility 
program. This must be sequential data set, e.g. , it can be specified after the 
card 


//SYSIN DD * 

in the job stream or as a member of a partitioned data set pointed to by the sysin 
card. This data set is vital to the utility to designate the operation the utility is 
to perform and the data set and possibly the member on which the operation is 
to be performed. 

Since the utility programs are the main source of information about the system 
(i.e. , with the exception of a core dump and the hard copy), it would seem to be 
a good idea to make these programs and any others which the system personnel 
deem necessary more readily available at times when system problems arise 
and multiple console support offers this capability to the systems programmer. 
One of the operator commands offered the user in multiple console support is the 
start command. OS/360 allows the operator to start certain qualified tasks from 
the operator's console and to pass parameters to these tasks by the start com- 
mand itself. There must be a procedure in the system procedure library to point 
to the program to be started, the program must exist in one of the system link- 
age libraries and the user must update the table (lEEVLNKT) used by the Post 
Scan Exit Routine to include the program name. 

The procedure corresponding to the program is; 

//SUFFER EXEC PGM=SUFFER 
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//PROC LIB DD DSN=S YS2 . SUF FER . PROC LIB , DISP^SHR 

//CONTROL DD DSN=SYS2. SUFFER. CONTROL, DISP^SMR 

//JOBl DD DSN-=SYS2. SUFFER. JOBl,DISP^HR 

//JOB2 DD DSN=SYS2. SUFFER. JOB2,DISP=SHR 

The PROC LIB and CONTROL DD cards refer to the libraries created to contain 
SUFFER routines. The JOBl and JOB2 DD cards are for the data sets to con- 
tain the job streams created at the operator’s console. 

Program SUFFER started in this manner is a system task, operates in protect 
key 0 and is itself capable of Issuing SVC’s or performing any other function 
normally reserved for system tasks. 

Since SUFFER is in protect key zero, one of the reserved operations it can per- 
form is issuing the communications Supervisor Call, i.e. SVC 34. In this man- 
ner, SUFFER can issue any command which can be entered at the master con- 
sole, All that is necessary, is that SUFFER point register zero to the message 
text and specify the text length in the first four bytes. Therefore, SUFFER can 
start any procedure, system task or, as we will need, its own reader. The 
standard IBM reader procedure requires three DD statements to be defined. 

The first named lEFRDER, describes the input stream to the reader/interpreter. 
The second, named lEFPDSI, describes the procedure library which is to be used 
by the invoked reader and the last, lEFDATA, describes the intermediate storage 
of input stream data. Hence, SUFFER, given its own reader procedure, can 
start programs, in this case utilities and other essential routines, by pointing 
the lEFPDSI data definition card to its own procedure library containing the nec- 
essary procedures to execute the utilities, and by pointing the lEFRDER data 
definition statement to this same utility procedure library but specifying the 
member or individual procedure symbolically. Then SUFFER maintains the 
ability to override this data definition card and can execute any utility progi am 
requested by the system programmer working with SUFFER for which a member 
has been created in this utility procedure library or for which SUFFER has cre- 
ated an input stream for the reader. 

In order to initialize utility programs, SUFFER must use several data sets which 
have been mentioned already. The first data set is the data set to contain sym- 
bolic procedures for the utility programs. We have discussed the job control 
language necessary for executing a utility program but we have not seen any ex- 
amples of how the use of symbolic parameters can be used to reduce the space 
necessary for this procedure data set and to facilitate the execution of the utili- 
ties . Let us consider two of the most frequently used utility programs , lEHDASDR 
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and lEHPROGM. lEMPROGM’s functions include scratching, renaming, catalog- 
ing, and uncataloging data sets. Since data sets can be inadvertently uncataloged, 
cataloged incorrectly, or scratched, it would be convenient to have this utility 
available immediately. The symbolic procedure for this utility is as follows: 

//DEFAULT PROC VOL=M2SYS4 

//CATLG EXEC PGM=IEHPROGM 

//SYSPRINT DD SYSOUT=A 

//DDl DD VOL=REF=SYSRES, DISP=OLD 

//DD2 DD VOL=REF=&VOL, DISPOLD 

Since lEHPROGM requires a DD card for each volume referred to in the job step 
and since the catalog is on the system residence device, it is most favorable in 
this case to have a second card which can be used to describe any other pack 
which might be used. In this example, the DD2 card will point to the volume 
M2SYS4 unless overridden, SUFFER allows for this condition with its code op- 
tion which is illustrated later. lEHPROGM, however, has a different control 
card for each of the fimctlons mentioned. lEHPROGM by nature requires a data 
set name specified in the control card and therefore a method of just typing the 
control card at the console or editing it on secondary storage is necessary. 
SUFFER provides the option of replacing the sysin card by one specifying an in 
stream data set and then following it with the desired control cards. 

The lEHDASDR utility can be used to analyze and initialize direct access storage 
devices, and to dump or restore these devices onto or from back up copies kept 
by the individual user. The procedure for executing the lEHDASDR can be: 

//DEFAULT PROC VOL=M2DRMl,T=SYSTPE, MEM=DUMP 

//DASDR EXEC PGM=IEHDASDR 

//SYSPRINT DD SYSOUT=A 

//DDl DD VOL=REF=&VOL,DISP=OLD 

//TOl DD VOL=SER=&T,UNIT=(TAPE, DEFER), DSN=&VOL,DISP= 
(,KEEP) 

//SYSm DD DSN=SYS2. SUFFER. CONTROL(&MEM),DISP=OLD 


5 


SUFFER uses a second data set in which to store a control statement for each 
function as a member of this partitioned data set (SYS2. SUFFER. CONTROL) and 
then the appropriate member can be selected by just specifying the MEM param- 
eter in the exec card. Here, the two most frequently used functions, the dump 
and the restore have so little variation in their control statements that it is un- 
necessary to code them specifically. In general, it is only necessary to include 
the members DUMP and RESTORE which are: 

DUMP FR0]\IDD=DD1,T0DD=T01 


and 


RESTORE TODD=DDl , FR0MDD=T01 

The program SUFFER also utilizes two sequential data sets as temporary stor- 
age for tilie job stream it creates. SUFFER will prepare the final JCL for the 
procedure together with the proper control cards in one of these data sets to 
avoid timing problems incurred by trying to create new JCL for starting a sec- 
ond job while RDRSUFR is still processing the JCL for the first one. 

There are several reasons to justify a program such as SUFFER. As was men- 
tioned, the information which becomes more readily availa.ble is sufficient in it- 
self. But then, SUFFER also can cure problems when the operator is using it 
while talking to the systems programmer by telephone after working hours. Er- 
rors are reduced when operating personnel do not have to code cards. SUFFER 
also increases the speed in which tlie utilities can be entered in the system, since 
all the cards need not be punched up or even modified. SUFFER also decreases 
the errors which can be made in keypimching by the system programmer. 

^here are also several improvements which should be made to SUFFER. As it 
is, SUFFER lacks the ability to format control blocks on the display console. 
Displaying a given TCB or UCB might prove to be a very handy feature when cer- 
tain jobs are in the system for long periods of time. Finally, SUFFER does not 
provide for any output from programs to be returned to the console In many 
cases, the utilities output is limited to a few lines and would not clutter up the 
display, yet it would yield quick response to the utility. In any case, at least 
the condition code of the utility at completion could be very helpful in determin- 
ing if DASDI, DUMP/RESTORE performed satisfactorily. 


HOW TO USE SUFFER 

The following section discusses the operation of SUFFER. Appendix A is a re- 
production of system log for one SUFFER session. 
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SUFFER is initiated with a "S SUFFER" command. The user is then queried 
for the name of the routine in SYS2. SUFFER, PROC LIB he wishes to use. The 
specification of the routine name at this point if for display purposes only. He 
also specifies the display options: all lines of the procedure, the PROC state- 
ment, containing default values for parameters, or no display. The abbrevia- 
tions A, D and N are allowed. The default option is to show the entire procedure. 
If the user types in a routine name not in the SUFFER libraiy, he is requested 
to try again. Three consecutive incorrcsct routine names causes the termination 
of the SUFFER routine. 

After the JCL desired has been displayed, SUFFER asks if the default utility con- 
trol statements associated with the procedure should be shown, SUFFER then 
requests the job name to be used. Again there are three options: to specify all 
eight characters , to specify a three character suffix to K3SYS or to use K3SYSSUF 
by speoifying ’U’. These defaults may be modified as explained in "Installation 
of SUFFER." 

After the job name is specified, the user specifies all JCL and control statements 
that will make up his job. The first line is an EXEC, generally to invoke the 
catalogued procedure displayed above. At this point the user modifies any of the 
default parameters specified in the routine. Following the EXEC statement, any 
additional DD cards and utility control statements required are entered. After 
the last line, the user replies 'END* to show completion and to automatically 
start a reader to the job he has created. SUFFER then returns to the start and 
requests another routine name. At this point or at any time, the user may reply 
•EXIT’ to immediately terminate the operation of SUFFER. 

SUFFER is simple to use, as the requests cue the user as to the form of the re- 
ply desired. A knowledge of the contents of SYS2. SUFFER. PROC LIB is helpful. 

It is recommended that at least a listing of the member names be available at 
the operators console. For simpiiciiy in coding, SUFFER does not allow cor- 
rectloii of lines already entered, hi the case of errors in typing of JCL, ’EXIT* 
and restart is the best course. 


SUFFER LOGIC FLOW 

This section of the paper contains a brief narrative of the internal logic flow of 
SUFFER, The source listings can be found in Appendix B, 

SUFFER determines from the start command which console is in use and routes 
all WTO’s and WTOR’s to it. After opening SYS2. SUFFER. PROCLIB and SYS2. 
SUFFER, CONTROL, it requests a routine name and display option. If the rou- 
tine name cannot be found in the directory, another try is requested. Three 
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consecutive incorrect nrmes causes termination of SUFFER. If the routine is 
not to be shown at all, the job preparation code is entered. Otherwise FIND 
locates the desired member and a BPAM READ is issued for the first block. Log- 
ical record counting and subsequent READs are built into the program. Each 
record is examined to determine if it is part of the PROC statement. If so, the 
default SYS2. SUFFER. CONTROL member name is searched for and the entire 
line displayed with a WTO, After tlie PROC statement, no search is done and 
the line displayed only if option ALL was chosen. 

A WTOR then asks if the control statements are to be show^i. If so, the same 
sequence of FIND, READ*s and WTO*s as above is used to display the control 
statements. Two alternating data sets are used to contain the job now to be 
built. A pair of sets is used to guarantee that in the case of consecutive jobs 
being built by SUFFER, the job data set is not written over before it has been 
read to the job queue. An one bjrte flag, JOBNO, determines which data set, 
SYS2. SUFFER. JOB 1 or JOB2 is currently being used. After the correct data 
set is opened, the user is queried for a job name. He is , given the options of 
eight characters, a three character suffix or allowed to use a default name. 

His reply is incorporated into a job card fixed at assembly and the result written 
to the JOB data set. Subsequent WTOR's request card images to be entered into 
the data set. 

When the user is through entering card images, he replies ’END*. This causes 
the JOB data set to be closed. An SVC 34 is used to start RDRSUFR to the cor- 
rect job data set, which is subsequently treated as a normal job by the system. 

A new routine name is requested and the process begins anew. In reply to any 
of the WTOR’s, the user may type ’’EXIT’, which causes all data sets to be 
closed and a RETURN to be issuedr 


INSTALLATION OF SUFFER 

The following steps must be performed to make SUFFER operational: 

1. AssemHe SUFFER source code (See Appendix B). Before assem- 
bly coiistants DEFJOBID and JOBREST should be modified to con- 
tain the desired default job id and job card format. 

2. The assembly output is then link-edited into SYSl. LINK LIB or any 
link library concatenated to it in SYS1.PARMLIB(LNKLST00). 

3. Place the catalogued procedure SUFFER (Appendix C) in SYSl, 
PROC LIB. 
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4. Modify SYSl. LINKLIB(IEEVLNKT) to allow a START SUFFER 
command to be valid. 

5. Place the catalogued procedure RDRSUFR (Appendix C) in 
SYSl. PROC LIB. 

6. Create and catalog the two SUFFER library data sets: 

SYS2 . SUFFER . PROC LIB 
SYS2. SUFFER. CONTROL 

7. Allocate space for and catalog the t^\'o SUFFER job stream data 
sets: 


SYS2. SUFFER. JOBl 
SYS2. SUFFER. JOB2 

A few tracks for each should be sufficient. 

Copies of the source code may be obtained by contacting the authors. Further 
improvements to SUFFER are contemplated and will be incorporated into future 
decks. 
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A SAMPLE SUFFER SESSION 
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• IEF429I. INITIATOR *INIT' WAITING FOR WORK 
sui suffer (C is* back«paot‘) 

ENTER 'EXIT' AT ANY TIME TO STOP SUFFERING. 

•08 ENTER ROUTINE NAME AND DISPLAY OPTIONS: ALL, DEFAULTS OR NOTHING 
r 08, ' suf I i st,n' 

lEEOOOl ACCEPTED REPLY TO MSG 08 IS 'suf list, n'l 

• 09 INCORRECT ROUTINE NAME SPECIFIED. TRY aGA I N. "''I"'"'' 

r 09, 'SUFLIST,N' 

IEE600I ACCEPTED REPLY TO MSG 09 IS 'SUFLIST,N' 

•10 ENTER dOBNAME DESIRED OR SUFFIX TO K3SYS OR 'U' TO USE K5SYSSUF. 
r 10, 'U' 

IEE600I ACCEPTED REPLY TO MSG 10 IS 'U' 

•11 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 
r 11,'// EXEC SUFLIST' 

lEEGOOl ACCEPTED REPLY TO MSG 11 IS '// EXEC SUFLIST' 

•12 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 
r 12, '.END' 

IEE600I ACCEPTED REPLY TO MSG 12 IS 'END' 

•13 ENTER ROUTINE NAME AND DISPLAY OPTIONS: ALL, DEFAULTS OR NOTHING 


RRRR JOB DOOOl K3SYSSUF ON 330 BY RDRSUFR 
r 13, 'DUMP, A' 

lEEGOOl ACCEPTED REPLY TO MSG 13 IS 'DUMP, A' 

//DEFAULT PROC V0L»M2DRM1, T-SYSTPE,MEM«=DUMP 0 

//DMPRES EXEC PGM- I EHDASDR, REGI ON-IOOK 0 

//SYSPRINT DO SYSOUT-A 0 

//DDl DO VOL«REF»&VOL,DISP»SHR 0 

//TOl DO UNIT-2400-9, VOL=SER»&T,DISP»(,KEEP) 0 

//SYSIN DD DSN-SYS2. SUFFER. CONTROL(&MEM),DISP-SHR C 

•14 DISPLAY CONTROL STATEMENTS? Y OR N. 
r 14, 'Y' 

IEE600I ACCEPTED REPLY TO MSG 14 IS 'Y' 

DUMP FROMDD=DD1,TOOD»T01 0 

•15 ENTER JOBNAME DESIRED OR SUFFIX TO K3SYS OR 'U' TO USE K3SYSSUF. 
r 15,'DMP' 

lEEGOOl ACCEPTED REPLY TO MSG 15 IS 'OMP' A 


•1C ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 

SSS JOB DOOOl K3SYSSUF AT 09.12.12 BY INIT 
r 16,'// EXEC DUMP,T-SYS)^073' 

EEE JOB DOOOl K3SYSSUF AT 09.12.20 JOBT-0001 
WWWW JOB DOOOl K3SYSSUF ON OOF, BOX-SYS 
IEE600I ACCEPTED REPLY TO MSG 16 IS ' // EXEC DUMP, T-SYS073 ' 

•18 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 
r 18, 'END' 

IEE600I ACCEPTED REPLY TO MSG 18 IS 'END' 

• 19 ENTER ROUTINE NAME AND DISPLAY OPTIONS: ALL, DEFAULTS OR f '"HING 

RRRR JOB D0002 K3SYSDMP ON 330 BY RDRSUFR 
SSS JOB 00002 K3SYSDMP AT 09.14.07 BY INIT 
IEF234E R 0D3, , K3SYSDMP 
•IEF233A M 0D3,SYS073,, K3SYSDMP,DMPRES 

• IEA.000A 003, INT REQ, C3, 0200, 4C24 000400, , S YS073, 
r 19, ' LISTVTOC,D' 

IEE600! ACCEPTED REPLY TO MSG 19 IS 'LISTVT0C,0' 

//DEFAULT PROC MEM-L I STVTOC, CVOL-M2DRM1, VOL-M2SYS4 0 

//I ENLIST EXEC PGM- I ENLIST 0 

•20 DISPLAY CONTROL STATEMENTS? Y OR N. 
r 20, 'N' 

IEC705I TAPE ON 0D3,SYS073 IS SL, 1600BPI 
IEE600I ACCEPTED REPLY TO MSG 20 IS 'N' 

•21 ENTER JOBNAME DESIRED OR SUFFIX TO K3SYS OR 'U' TO USE K3SYSSUF. 
IEF280E K 0D3,SYS073,K3SYSDMP,DhPRES 

EEE JOB 00002 K3SYSDMP AT 09.16,38 JOBT-0002 
WWWW JOB 00002 K3SYSDMP ON OOF, BOX-SYS 
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r 21/K3JSCVTC 

1EE600I ACCEPTED REPLY TO MSG 21 IS 'K3JSCVTC' 

♦22 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END’ TO EXECUTE YOUR JOB, 
r 22,'// EXEC L I STVTOC, VOL-M2SYS2 ' 

IEE600I ACCEPTED REPLY TO MSG 22 IS. '// EXEC LI STVTOC, VOL-M2SYS2 ' 

♦23 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 
r 23,'//SYSIN DD ♦' 

IEE600I ACCEPTED REPLY TO MSG 23 IS '//SYSIN DO ♦’ 

♦24 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 
r 24,’ LISTVTOC FORMAT, VOL-2314»M2SYS2 ’ 

IEE600I ACCEPTED REPLY TO MSG 24 IS ' LISTVTOC FORMAT, VOL-2314-M2S 
♦25 ENTER JCL OR CONTROL STATEMENTS. ENTER 'END' TO EXECUTE YOUR JOB. 
r 25,’e^END' 

IEE600I ACCEPTED REPLY TO MSG 25 IS 'END' 

♦26 ENTER ROUTINE NAME AND DISPLAY OPTIONS: ALL, DEFAULTS OR NOTHING 
r 26, 'EXIT' 

RRRR JOB D0003 K3JSCVTC ON 330 BY RDRSUFR 
SSS JOB D0003 K3JSCVTC AT 09.19.36 BY I NIT 
IEE600I ACCEPTED REPLY TO MSG 26 IS 'EXIT' 

YOUR SUFFERING IS OVER! 

EEE JOB D0003 K3JSCVTC AT 09.20.05 JOBT-0003 
WWWW JOB D0003 K3JSCVTC ON OOF, BOX-SYS 

/ 
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APPENDIX D 


SAMPLE MEMBERS OF SYS2. SUFFER. PROC LIB 
AND SYS2 . SUFFER . CONTROL 



71.077 11.10 - . 


//OEFAtLT PHOC V0L*M20 RMl » T= SY STPE . MEMsOU HP 
//OMPRES EXEC PGMal CHOASOR .REG I OK»lO OX 

//sv^RTwr sv5t:ut»a 

//OOl DO VOL=REF*eVOU.OI SPsSHR 

//TOl DO UNIT=2A3C-9.VCLaSER»5T.DISPa( .KEEP) 

//SVSIN OD 0SN»SYS2. SUFFER.CONTROLCCPEHO .OISP*SFR 

END OF MEMBER 6 RECORDS PRCCESSEC. 


COOOClOO 

3000u200 

cooooToir 

00 000400 
00 000500 
0OOOC6OO 


71.077 11.10 


lEHIOSUP 


//DEFAULT PROC SY ERE S= K2 DR K1 
//lOSUP EXEC PGM=IEHIOSUP 
//SVSPRINT DD £VSCUT=A 

■ 7/SV5UT1 OD D’51«=SY5TT?\CT;TB.mSF=0tl3 .VCt =REF=C SYSPES^' 


CO 0001 00 
00000200 
00000300 


END OF MEMBER .... 4 RECORDS PROCESSED. 



TI. 07 T TI.rxr 


L T S T V T OC 


//DEFAULT PROC STVTOC t CV0LaP2DRMl •V0LsM2SYS4 00000100 

//lEHLIST EXEC P6M«IEHLIST OGC00200 

//STSF'R INr UtT" StSCUT^A " " " * “ " " " 00 0003 C O 

//CVOLUME 00 VGL-REFsCCVCL »DISPxSHR 00000400 

//VOLUME DO VOLaREF«CVCL iO fL -«SHR 00 0005CO 

//SYSIN DD DSN*SYS2.SUFFeR«C0NTRQL(6PiCM| tOISPsSFR CD0CO600 

END OF MEMBER •••• 6 RECORDS PRCC6SSE0# 


TTTtrrr 


R ENA ME 


//DEFAULT PROC CVCL^MPDRRl 0". COOlOO 

//CATLG EXEC P GM= lEHPR CG M OCCCC20C 

//S T SP RI NT D P SYSCUTgA ““ ^70 0 0 03 0 0 

//CVOLUME 00 VOL=REF=tCVCL tOISPxSHR OuOCOAOO 

END OF MEMBER •••• 4 RECORDS PRCCESSEO. 


7U077 lUl 0 


RESTORE 


//DEFA ULT PROC VOL = M20RMl • T=SYSTPE t MEMxRESTORE 
//DMPRE S EXEC PGMsIEHOASDR tREGlONxlO OK 
//SYSPRINT 00 SVSOUTxA 
//DOrOT VmrxREFSCVDL.DrSPxSHR 

//FROM! DO UNI 7x2400-9 fVCLxSeRxCT#OISP*(OLOfKEEF) 
//SYSIN DD 0SNxSYS2«$UFFER#C0NTR0L(SMEM> •DISPxSFR 


0 ^, cool 3 C 

00 OC020C 
W 00 UC 3 C 0 

0CC0060C 

oocooeoc 


END OF MEMBER •••• 6 RECORDS PRCCESSEO# 


M .077 1 X# I 0 


SUPERZAP 


//DEFAULT PROC OSN= • SY SI • L I NKL I B • 
//ZAP exec PGMX SUPERZAP 
//SYSLIB 00 OSN=eOSN,D ISPxSHR 
//5Y5PRTNT DD E^SrCUT^ 

//* //SYSIN DO ♦ NEEDED FOR INPUT 


00 COO too 
0CCC0200 
00000300 
ODOOOA^Oir 
00000500 


END 


OF 


MEMBER 


• • • • 


5 RECORDS PROCESSED 



